10 DV=PEEK(186):IFDV<8THENDV=8
11 PRINT"[144]":A=RND(-TI)
12 UC=4613:HC=4675:HK=4739
13 DIMX,Y,CD(52),X1(15),Y1(52),CR(8,52),CV(52),CC(52)
14 GOSUB5010
90 SYS4608,224:.ED:.BR,1:GOSUB500
91 .OL,243*256
99 GOSUB5030:.BR,0:.MP,6,0
100 .DO:.EE:.WB:.UN E%:.TX,0
101 IFE%<>-1THEN30000
102 .OF:  POKE53272,22: END
200 GOSUB300
202 E%=I%*2
299 .ER:RETURN
300 .BX,14,25,10,14,160,2:.TX,128+2
302 .PC,11,"QUIT GAME?"
304 .PC,13,"YES NO"
306 .MZ,2,17,19,21,22,13,13,2,128+0,"YN"
310 I%=SL%-2:RETURN
500 DIMSY(13),SX(7),SH(7):FORX=2TO7
501 POKE53287+X,7:POKE2040+X,137
502 PX(X)=53248+X*2:PY(X)=PX(X)+1
503 NEXT
504 SH(6)=4:SH(7)=4
506 FORY=0TO13:SY(Y)=106+Y*8:NEXT
508 FORY=0TO7:SX(Y)=(32+Y*40)AND255:NEXT
510 POKE53271,4:POKE53277,4:POKE53275,4
514 GOTO550
515 DN=0:IFLX>7THEN541
516 POKE53269,3:LY=CR(LX,0):LZ=LY
517 IFLY>14THENLY=14
520 IFLY<1THENDN=1:RETURN
526 POKEPX(2),SX(LX):POKEPY(2),SY(LY-1)
527 POKE53264,(PEEK(53264)AND3)ORSH(LX)
532 POKE53269,7
540 LY=LZ:RETURN
541 X=LX-7:IFCR(8,X)=0THENDN=1:RETURN
542 IFLX>11THENDN=1:RETURN
543 POKEPX(2),SX(LX-8)-8:POKEPY(2),58
544 LX=LX-8:GOTO527
550 FORX=1TO13:CV(X)=X:CV(X+13)=X
552 CV(X+26)=X:CV(X+39)=X
554 CC(X)=0:CC(X+13)=1:CC(X+26)=1
556 NEXT
600 POKEMV+1,35
601 FORX=0TO7:.RD,X+1,X1(X),X1(X)+3,7,24:NEXT
602 FORX=XTO11:X1(X)=X1(X-8)-1:X1(X+4)=X1(X-4)
603 .RD,X+1,X1(X),X1(X)+3,1,5
604 .RD,X+5,X1(X+4),X1(X+4)+3,1,5
605 NEXT
607 .RD,17,0,6,0,0
609 .RD,18,7,15,0,0
610 .RD,19,37,39,0,0:RETURN
699 REM"       GETCARD
700 [139]LX[177]7[167]720
701 LY[178]CR(LX,0):[139]LY[178]0[167][144]
702 CD[178]CR(LX,LY):X0[178]LX
704 CR(LX,0)[178]CR(LX,0)[171]1
706 LY[178]CR(LX,0):
707 [139]LY[178]0[167]:.BX,X1(LX),X1(LX)[170]3,6,11,128,11:[137]712
708 .OP,CR(LX,LY),X1(LX),Y1(LY)
710 .BX,X1(LX),X1(LX)[170]3,Y1(LY)[170]5,Y1(LY)[170]5,128,11
712 .SS,208:[142]
720 [139]LX[177]11[167]740
722 X[178]LX[171]7:CD[178]CR(8,X):CR(8,X)[178]0
724 .BX,X1(LX),X1(LX)[170]3,1,5,160,2
726 .SS,208:[142]
740 [144]
800 [139]LX[177]7[167]820
801 .TX,128:.P@,0,0,[196](CV(CD))[170][196](CC(CD))
802 [139]CR(LX,0)[178]0[167]808
803 [139]CV(CD)[179][177]CV(CR(LX,CR(LX,0))[171]1)[167]LX[178]X0:[137]808
804 [139]CC(CD)[178]CC(CR(LX,CR(LX,0)))[167]LX[178]X0
808 CR(LX,0)[178]CR(LX,0)[170]1
809 LY[178]CR(LX,0)
810 CR(LX,LY)[178]CD
812 .SR,208:.OP,CD,X1(LX),Y1(LY)
814 [142]
820 [139]LX[177]11[167]840
822 LX[178]LX[171]7:[139]CR(8,LX)[179][177]0[167]LX[178]X0:[137]808
824 CR(8,LX)[178]CD:CR(8,0)[178]CR(8,0)[170]1
826 .SR,208
828 .OP,CD,X1(LX[170]7),1
830 [142]
840 [139]LX[177]15[167][144]
841 X[178]LX[171]7:
842 [139]CR(8,X)[178]0[175]CV(CD)[178]1[167]846
843 [139]CC(CR(8,X))[179][177]CC(CD)[167]LX[178]X0:[137]808
844 [139]CV(CR(8,X))[179][177]CV(CD[171]1)[167]LX[178]X0:[137]808
846 CR(8,X)[178]CD
848 .SR,208:.OP,CD,X1(LX),1
849 [142]
900 [139]LX[177]7[167]:.OF:[151]53272,22:[144]
1000 .BX,0,8,0,0,255,0
1001 .P@,8,0,"STOPUNDO    ":.SS,232
1010 [141]2020
1060 PL[178]0:[139]DM[178]2[167]1065
1061 .BX,14,25,11,13,160,9
1062 .TX,9[170]128:.PC,12,"SHUFFLING"
1065 [141]5020:[151]MV[170]1,35:[151]MV[170]2,19
1075 .DO
1080 :.DO
1081 ::.P1,2040,136:.P1,2041,136
1082 ::.P1,53287,7:.P1,MV[170]3,0
1100 ::.DO:.MA:.KP,"SUX"
1101 ::[139]R2%[167][141]6500
1102 ::.UN CR% [176] I%:[139]I%[167]1150
1103 ::[139]CR%[177]15[167]I%[178]CR%[171]16:[137]1150
1104 ::LX[178]CR%[171]1:[141]515:GX[178]CR%[171]1
1105 ::[139]DN[178]1[167]1100
1106 ::.P1,2040,138:.P1,2041,138
1107 ::.P1,53287,8:.P1,MV[170]3,3
1108 ::TM[178]TI[170]30
1110 ::.DO:.MA
1111 ::.UN CR%:[139]TM[179]TI[176]CR%[171]1[179][177]GX[167]1119
1112 ::
1113 ::[139]CR(8,0)[178]4[167]1110
1114 ::[129]X[178]1[164]4:[139]CR(8,X)[178]0[167]Y[178]X:X[178]4
1115 ::[130]:LX[178]Y[170]7:[137]1120
1119 ::LX[178]CR%[171]1
1120 ::.SS,216:[141]3000:PL[178]DN
1121 ::[139]DN[178]0[167][141]3500:PL[178]DN
1122 ::[139]DN[178]0[167]1110
1123 ::[151]53269,3
1124 ::[129]X[178]5[164]8
1125 ::[139]CV(CR(8,X))[179][177]13[167]X[178]99
1126 ::[130]:[139]X[179][177]100[167]I%[178]4
1150 :.UN I%:DN[178]0
1152 :[145]I%[141]1220,2100,1300,4000
1154 .UN DN
1156 .ER:[142]
1200 .SS,208
1201 .BX,12,26,10,14,160,6:.TX,6[170]128
1202 .PC,11,"RESTART GAME?"
1204 [141]304:.SR,208
1206 [139]I%[167]DM[178]2
1210 DN[178]I%:[142]
1220 .SS,208
1221 .BX,15,24,10,14,160,6:.TX,6[170]128
1222 .P@,16,11,"NEW GAMELETRESTARTLETCANCEL"
1224 .MU,16,23,11,13,6,128,"NRC"
1225 .SR,208
1226 [139]SL%[178]3[167]DN[178]0:[142]
1228 [139]SL%[178]1[167]:.OF:[138]
1229 [129]Y[178]0[164]52:[129]X[178]0[164]8:CR(X,Y)[178]0:[130]:[130]
1230 S$[178][196]([181]([187](1)[172]32000)[170]1)
1232 X[178][187]([171][197](S$))
1234 .BX,22,35,0,0,160,0
1235 .P@,22,0,"GAME: "[170]S$
1240 DM[178]SL%:DN[178]1:[142]
1256 [137]6000
1299 DM[178]SL%:DN[178]1:[142]
1300 .SS,208
1301 [141]300
1302 E%[178]I%[172]2:DN[178]I%
1303 .SR,208
1304 [142]
1400 [139]CR(8,0)[178]4[167]1110
1402 Y[178]0:[129]X[178]1[164]4
1404 [139]CR(8,X)[178]0[167]Y[178]X:X[178]4
1406 [130]:LX[178]Y[170]7:[137]1120
1999 .ER:[142]
2000 [142]
2001 X[178][181]([187](1)[172]3200)[170]1
2005 .BX,13,26,10,14,160,0:.TX,128
2010 .PC,11,"CHOOSE GAME:"
2011 S$[178][202]([196](X),2)
2012 .IN,17[170]128,13[170]128,6,6,5,S$
2014 X[178][187]([171][197](W$)):.ER:S$[178]W$
2015 .BX,22,35,0,0,160,0
2016 .P@,22,0,"GAME: "[170]W$:.SS,232
2019 DM[178]1:.ER:[142]
2020 [139]DM[177]0[167][142]
2022 .SS,208: X[178][181]([187](1)[172]3200)[170]1
2025 .BX,13,26,10,16,160,0:.TX,128
2030 .PC,11,"THIS GAME:"
2031 S$[178][202]([196](X),2)
2032 .PC,13,S$:.PC,15,"PLAY CHANGE"
2034 .MZ,2,14,17,19,24,15,15,0,6[170]128,"PC"
2035 .SR,208
2036 [139]SL%[178]2[167]2005
2045 .BX,22,35,0,0,160,0
2046 .P@,22,0,"GAME: "[170]S$:.SS,232
2049 .ER:[142]
2099 .ER:[142]
2100 [143] UNDO
2102 [139]PL[178]0[167]DN[178]0:[142]
2103 [139]GU[177]0[167]2200
2106 [141]3400:DN[178]0:PL[178]0:[142]
2200 CR(LV,0)[178]LU:CR(GV,0)[178]GU
2202 GU[178]0:PL[178]0:.SR,216:DN[178]0:[142]
2999 .ER:[142]
3000 [143] MOVE STUFF
3001 DN[178]0:GU[178]0:LU[178]0
3005 [139]GX[177]7[167]3100:CEL 2 ..
3006 [139]LX[177]7[167]3200:COL 2 CELL
3007 [143]  COL 2 COL
3010 CF[178]CR(GX,CR(GX,0))
3012 CT[178]CR(LX,CR(LX,0))
3014 [139]CF[178]CT[167]DN[178]1:[142]
3015 [139]CR(LX,0)[178]0[167]3600:::3020
3016 [139]CV(CF)[179][177]CV(CT)[171]1[167][142]
3018 [139]CC(CF)[178]CC(CT)[167][142]
3020 [141]7000
3026 [141]7020
3030 DN[178]1:[142]
3100 [139]LX[177]7[167]3300:CEL 2 CELL
3101 [143] CEL 2 COL
3102 X[178]GX[171]7:CF[178]CR(8,X)
3104 [139]CF[178]0[167]DN[178]1:[142]
3106 CT[178]CR(LX,CR(LX,0)):[139]CR(LX,0)[178]0[167]3112
3108 [139]CV(CT)[179][177]CV(CF)[170]1[167][142]
3110 [139]CC(CT)[178]CC(CF)[167][142]
3112 CR(8,X)[178]0:CR(8,0)[178]CR(8,0)[171]1
3114 [141]7020
3116 .BX,X1(GX),X1(GX)[170]3,1,5,160,2
3119 CH[178]CF
3120 DN[178]1:[142]
3200 [143] COL 2 CELL
3202 X[178]LX[171]7:CT[178]CR(8,X)
3204 GY[178]CR(GX,0):[139]GY[178]0[167][142]
3206 CF[178]CR(GX,GY)
3208 [139]LX[177]11[167]3230
3210 [139]CT[179][177]0[167][142]
3212 CR(8,X)[178]CF:CR(8,0)[178]CR(8,0)[170]1
3214 [141]7000
3216 .OP,CF,X1(LX),1
3222 DN[178]1:[142]
3229 [143] ACES
3230 [139]CT[178]0[167]3236
3234 [139]CC(CT)[179][177]CC(CF)[167][142]
3235 [139][181]((CT[171]1)[173]13)[179][177][181]((CF[171]1)[173]13)[167][142]
3236 [139]CV(CT)[179][177]CV(CF)[171]1[167][142]
3238 CR(8,X)[178]CF:CH[178]CF:[137]3214
3300 [143] CEL 2 CELL
3302 G[178]GX[171]7:CF[178]CR(8,G)
3304 X[178]LX[171]7:CT[178]CR(8,X):[139]CT[178]CF[167]DN[178]1:[142]
3306 [139]LX[177]11[167]3320:ACEII
3308 [139]CT[179][177]0[167][142]
3310 CR(8,X)[178]CF:CR(8,G)[178]0
3312 .BX,X1(GX),X1(GX)[170]3,1,5,160,2
3314 .OP,CF,X1(LX),1:CH[178]CF
3316 DN[178]1:[142]
3319 [143] ACEII
3320 [139]CT[178]0[167]3324
3322 [139]CC(CT)[179][177]CC(CF)[167][142]
3323 [139][181]((CF[171]1)[173]13)[179][177][181]((CT[171]1)[173]13)[167][142]
3324 [139]CV(CT)[179][177]CV(CF)[171]1[167][142]
3326 CR(8,0)[178]CR(8,0)[171]1:[137]3310
3400 [143] UNDO
3401 GU[178]0
3402 [139]LX[177]7[167]3420
3404 CR(LX,0)[178]CR(LX,0)[171]1
3406 [139]GX[177]7[167]3430
3408 CR(GX,0)[178]CR(GX,0)[170]1
3410 .SR,216
3412 [142]
3420 [139]LX[177]11[167]3440
3422 X[178]LX[171]7:CR(8,X)[178]0:CR(8,0)[178]CR(8,0)[171]1
3424 [137]3406
3430 X[178]GX[171]7:CR(8,X)[178]CH
3434 CR(8,0)[178]CR(8,0)[170]1
3436 [137]3410
3440 X[178]LX[171]7:CA[178]CR(8,X):CI[178]CA[171]1
3442 [139]CV(CA)[178]1[167]CI[178]0
3444 CR(8,X)[178]CI:[137]3406
3500 DN[178]0:[139]GX[177]7[176]LX[177]7[167][142]
3501 GY[178]CR(GX,0):GU[178]0:LU[178]0:[151]53289,3:[139]GY[178]0[167][151]53289,7:[137]3590
3502 Y[178]0:[129]X[178]0[164]7:[139]CR(X,0)[178]0[167]Y[178]Y[170]1
3504 [130]:DP[178](5[171]CR(8,0))[172]CZ(Y)
3506 BY[178]CR(GX,0)[171]DP[170]1:[139]BY[179]1[167]BY[178]1
3508 CT[178]CR(LX,CR(LX,0)):[139]CT[178]0[167]3550
3509 TV[178]CV(CT)[171]1:TC[178]CC(CT)
3510 [129]X[178]GY[164]BY[169][171]1
3512 [139]CV(CR(GX,X))[178]TV[175]CC(CR(GX,X))[179][177]TC[167]3520
3514 [139]CV(CR(GX,X[171]1))[179][177]CV(CR(GX,X))[170]1[176]CC(CR(GX,X[171]1))[178]CC(CR(GX,X))[167]3518
3516 [137]3522
3518 X[178][171]10:BY[178]0:[137]3522
3520 BY[178]X:X[178][171]10
3522 [130]:[139]X[178]BY[171]1[167]DN[178]0:BY[178]0
3524 [139]BY[178]0[167][151]53289,7:[142]
3525 GU[178]GY:LU[178]CR(LX,0):.SS,216:GV[178]GX:LV[178]LX
3526 [129]X[178]BY[164]GY
3528 CR(LX,0)[178]CR(LX,0)[170]1:LY[178]CR(LX,0)
3530 CR(LX,LY)[178]CR(GX,X)
3532 .OP,CR(LX,LY),X1(LX),Y1(LY)
3534 [130]
3536 [139]BY[178]1[167]:.BX,X1(GX),X1(GX)[170]3,6,24,128,11:[137]3542
3538 .OP,CR(GX,BY[171]1),X1(GX),Y1(BY[171]1)
3540 [139]BY[179]15[167]:.BX,X1(GX),X1(GX)[170]3,10[170]BY,24,128,11
3542 CR(GX,0)[178]BY[171]1
3544 DN[178]1:[151]53289,7:[142]
3550 DP[178](5[171]CR(8,0))[172]CZ(Y[171]1)
3552 BY[178]CR(GX,0)[171]DP[170]1:[139]BY[179]1[167]BY[178]1
3554 [129]X[178]GY[164]BY[169][171]1
3556 [139]CV(CR(GX,X[171]1))[178]CV(CR(GX,X))[170]1[175]CC(CR(GX,X[171]1))[179][177]CC(CR(GX,X))[167]3560
3558 BY[178]X:X[178][171]10
3560 [130]
3562 [137]3525
3590 [151]2040,136:[151]2041,136:[142]
3599 [153]"LOAD"BY:[151]53272,22:.OF:[144]
3600 .SS,216
3601 .BX,27,39,0,4,160,2:.TX,2[170]128
3602 .P@,28,1,"MOVE...LETSINGLE CARDLETCOLUMN"
3608 .MU,28,38,2,3,2,8[170]128,"SC"
3610 .SR,216
3612 [139]SL%[178]1[167]3020
3614 DN[178]0:[142]
4000 DN[178]1:.SS,208:[139]P9$[179][177]""[167]P9$[178]" "[170]P9$
4001 [151]2040,136:[151]2041,136:[151]53287,7
4002 .BX,6,34,10,17,160,8
4004 .TX,8[170]128
4006 .PC,11,"CONGRATULATIONS"[170]P9$[170]"!"
4008 .PC,13,"YOU JUST WON GAME "[170]S$
4010 .PC,14,"DAVE MOORMAN'S FREE CELL"
4012 .PC,16,"PLAY AGAIN  EXIT FREE CELL"
4014 .MZ,2,7,16,19,32,16,16,8,6[170]128,"PE"
4015 [139]P9$[179][177]""[167]P9$[178]"FC."[170][202](P9$,2):[141]4100
4016 [139]SL%[178]1[167]:.OF:[138]
4018 [137]30000
4100 .QS
4101 [159]4,DV,4,P9$:[132]4,S$
4102 [160]4:S$[178][202]([196]([197](S$)[170]1),2)
4104 [159]1,DV,15,"S0:"[170]P9$:[160]1
4106 [159]4,DV,4,P9$[170]",S,W"
4108 [152]4,S$:[160]4:.QR:[142]
5000 [143]"   SHUFFLE CARDS
5001 FORX=1TO52:CD(X)=X:Y1(X)=20:NEXT
5002 REM IFDM=2THEN5007
5003 FORX=1TO52:R=INT(RND(1)*52)+1
5004 Y=CD(R):CD(R)=CD(X):CD(X)=Y
5006 NEXT
5007 DM=0:FORX=0TO14:Y1(X)=X+6:NEXT
5008 RETURN
5010 REM"   SET POSITIONS
5012 [129]X[178]0[164]7:X1(X)[178]1[170]X[172]5:[130]
5014 [134]CZ(6):[129]X[178]0[164]6:[135]CZ(X):[130]
5016 [131]1,2,4,7,11,16,22
5019 [142]
5020 [129]X[178]0[164]8:CR(X,0)[178]0:CR(8,X)[178]0:[130]:[139]DM[178]2[167]5022
5021 [141]5000:.SR,232
5022 DM[178]0:X1[178]0:Y1[178]7:[129]X[178]1[164]52
5024 .OP,CD(X),X1(X1),Y1
5025 CR(X1,Y1[171]6)[178]CD(X):CR(X1,0)[178]CR(X1,0)[170]1
5026 X1[178]X1[170]1:[139]X1[178]8[167]Y1[178]Y1[170]1:X1[178]0
5028 [130]:[142]
5030 [143]"  CLEAR BOARD
5032 FORX=0TO7
5034 .BX,X1(X),X1(X)+3,6,24,128,11
5036 NEXT:.SS,232:RETURN
5040 Y1=Y:IFY1>13THENY1=13
5042 .OP,CR(X,Y),X1(X),Y1+6
5044 RETURN
5050 FORX=0TO7:FORY=1TOCR(X,0)
5051 GOSUB5040:NEXT:NEXT:RETURN
5060 .BX,X1(X),X1(X)+3,6,24,128,11
5062 FORY=1TOCR(X,0):GOSUB5040
5064 NEXT:RETURN
6000 OPEN15,DV,15,"R0:PLAYER=PLAYER"
6002 INPUT#15,EN:CLOSE15:.QR
6003 IFEN=63THEN6100
6009 .BX,14,26,10,15,160,6:.TX,6+128
6010 .P@,15,11,"SERIES PLAY[136][136]NEW PLAYER[136]CANCEL"
6012 .MU,15,24,13,14,6,128,"NC"
6013 IFSL%=2THEN:.OF:RUN
6014 .ER
6016 .BX,14,28,10,14,160,6:.TX,6+128
6018 .P@,15,11,"INPUT NAME:"
6020 .IN,15+128,13,6,0,6,"":.ER:IFW$=""THEN6009
6021 .QS
6022 OPEN1,DV,15,"S0:PLAYER":CLOSE1
6024 OPEN4,DV,4,"PLAYER,S,W"
6026 PRINT#4,W$:CLOSE4:.QR
6027 OPEN1,DV,15,"R0:FC."+W$+"=FC."+W$:INPUT#1,EN:CLOSE1:IFEN=63THEN6000
6028 OPEN4,DV,4,"FC."+W$+",S,W"
6030 PRINT#4,"1":CLOSE4:.QR
6100 .QS:OPEN4,DV,4,"PLAYER":INPUT#4,W$
6102 CLOSE4:OPEN4,DV,4,"FC."+W$
6104 INPUT#4,S$:CLOSE4:.QR
6110 .BX,14,30,8,15,160,6:.TX,6+128
6112 .P@,15,9,"WELCOME, "+W$
6114 .P@,15,11,"PLAY GAME "+S$
6116 .P@,15,12,"CHANGE PLAYER"
6118 .P@,15,13,"NEW PLAYER"
6120 .P@,15,14,"CANCEL"
6122 .MU,15,29,11,14,6,128,""
6124 IFSL%=1THEN6200
6126 IFSL%=0ORSL%=4THEN:.OF:RUN
6128 IFSL%=2THEN6210
6130 IFSL%=3THEN6014
6200 .ER:.BX,22,36,0,0,160,0:.TX,128
6202 .P@,22,0,"GAME: "+S$:.SS,232
6203 X=RND(-VAL(S$)):P9$=W$
6204 DM=0:GOTO1060
6210 .B$,"$:FC.*",DV,49152,127
6212 .RK,49152:.$L,49152
6214 FORX=1TON%:.RI,X
6216 .$P,MID$(F$,4):NEXT
6218 .RK,49152:PRINT"[147]":POKE53272,20:.BG,0:.BR,0
6220 .ML,10,26,0,16,6,2,6,6,0,"",""
6222 IFW$=""THEN:.OF:RUN
6224 OPEN4,DV,4,"FC."+W$:INPUT#4,S$
6225 CLOSE4
6226 OPEN1,DV,15,"S0:PLAYER":CLOSE1
6228 OPEN4,DV,4,"PLAYER,S,W"
6230 PRINT#4,W$:CLOSE4
6250 PRINT"[147]":POKE53272,18:.ER:GOTO6110
6500 GY=0:FORLX=0TO7
6502 LY=CR(LX,0):IFLY=0THEN6514
6504 JG=1:GOSUB515:JG=0
6506 FORY=5TO8
6508 IFCR(8,Y)=0THEN6520
6510 IFCV(CR(8,Y))+1=CV(CR(LX,LY))THEN6530
6512 NEXT
6514 NEXT:POKE53269,3
6516 IFGY=1THEN6500
6517 FORX=5TO8:IFCV(CR(8,X))<>13THENX=99
6518 NEXT:IFX=9THENI%=4
6519 RETURN
6520 IFCV(CR(LX,LY))<>1THEN6512
6522 CR(8,Y)=CR(LX,LY)
6523 GY=1:PL=0:POKE53269,3
6524 CR(LX,0)=CR(LX,0)-1:LY=CR(LX,0)
6525 .OP,CR(8,Y),X1(Y-1),1
6526 IFLY=0THEN:.BX,X1(LX),X1(LX)+3,6,24,128,11:GOTO6529
6527 .OP,CR(LX,LY),X1(LX),Y1(LY)
6528 IFLY<14THEN:.BX,X1(LX),X1(LX)+3,LY+11,LY+11,128,11
6529 GOTO6512
6530 REM POKE53280,PEEK(53280)+1AND15
6531 IFINT((CR(8,Y)-1)/13)<>INT((CR(LX,LY)-1)/13)THEN6512
6532 GOTO6522
7000 CR(GX,0)=CR(GX,0)-1:GY=CR(GX,0)
7002 IFGY=0THEN:.BX,X1(GX),X1(GX)+3,6,11,128,11:RETURN
7004 .OP,CR(GX,GY),X1(GX),Y1(GY)
7006 :
7008 IFGY<14THEN:.BX,X1(GX),X1(GX)+3,GY+11,GY+11,128,11
7010 RETURN
7020 CR(LX,0)=CR(LX,0)+1:LY=CR(LX,0)
7022 CR(LX,LY)=CF
7024 .OP,CF,X1(LX),Y1(LY):RETURN
8008 .OF:POKE53272,22:STOP
30000 PRINT"[147]":.BG,1:.BR,1:.TX,01:POKE53272,22
30005 .PC,11,"[199]OOD [194]YE FROM
30006 .PC,13,"(null) (null)CLOSEATN STR$ (null) (null) ATN (null)"
30007 .TX,0:[137]30040
30010 .PC,11,"(null)RESS <ATNLT-(null)> TO
30020 .PC,12,"[210]ETURN TO [215]INDOWS."
30030 .TX,0
30040 .OF
40000 FORI=0TO21:POKE828+I,8+I:NEXT
40010 IFDV<8ORDV>29ORDV=8THEN40030
40020 A=PEEK(828):B=PEEK(828+DV-8):POKE828,B:POKE828+DV-8,A
40030 A$="HELLO CONNECT":FORJ=8TO29:I=PEEK(828+J-8):IFI=14THENNEXT
40040 CLOSE2:OPEN2,I,2:CLOSE2:IFSTTHEN40060
40050 CLOSE15:OPEN15,I,15,"R0:"+A$+"="+A$:INPUT#15,ER:CLOSE15:IFER=63THEN40070
40060 NEXT:POKE53272,23:POKE186,8:POKE53280,0:POKE53281,0:END
40070 Q$=CHR$(34):POKE646,PEEK(53281):PRINT"[147]":POKE53272,23
40080 PRINT"[147]P[207]2048,0:P[207]44,8:P[207]43,1:P[207]56,160:P[207]55,0:CLR:L[207]"Q$A$Q$","I
40090 PRINT"RUN:":POKE631,13:POKE632,13:POKE198,2:END
60000 D=PEEK(186):GOSUB60008:N$=N$+".DOT"
60001 OPEN1,D,15,"I0":PRINT#1,"S0:"+N$:CLOSE1:SAVEN$,D
60002 VERIFYN$,D:END
60008 N$="FREE CELL"
60009 RETURN